#!/usr/bin/perl
#
# Este script permite obtener la lista de shares correctamente formateada
#

# Argumentos...
#   1er: Lista de carpetas compartidas 
#     Formato... "netlogon     Disk     Scripts de inicio de sesion"
# Resultado ...
#   "netlogon#Scripts de inicio de sesion#"
#

 if ( 1 != $#ARGV ) {
    print "ERROR: Debes pasar <Lista_shares> <Fichero_Blacklist_editables>\n";
    exit 4;
 }

 open (FILE, $ARGV[1] );
 @blacklistShares=<FILE>;
 close FILE;

 # Abrir en modo lectura el fichero de LDAP
 open(FILE,"<". $ARGV[0]) || die ("ERROR: No puedo abrir [".$ARGV[0]."]\n");
 # Leer el fichero de LDAP...
 while ( chomp($linea=<FILE>) ) {
    if ( $linea=~m/^(.*\S)\s+Disk\s+(\S*.*\S)\s*$/ ) {
       $nombre=$1;
       $share=$2;
       
       if ( grep(/^$nombre$/, @blacklistShares)) {
          print "NO#";
       }else{
          print "SI#";
       }
       print "$nombre#$share#\n"; 
    }
 }
 close FILE;

